約 2,969,390 件
https://w.atwiki.jp/kojiro/pages/288.html
SUMIF
https://w.atwiki.jp/excelava/pages/17.html
名言や素敵な行動 EpA。Be4t(マスター) wiki作成時にEcxel()にする 彼は現役高校生() ちょっとExcelの人しっかり仕事して さすがExcelの人 違うそこ違う さすがExcelの「マスター」でしょ(ドン引き)
https://w.atwiki.jp/wordexcel/pages/14.html
Excelのページです。
https://w.atwiki.jp/excelmasters/pages/12.html
Excel（エクセル）とは何か 各バージョンのExcel Excelを起動してみる Excel（エクセル）とは何か Excelとは、Microsoft社が作った表計算ソフトです。通常は表を作成したりグラフを作成したりという用途が多いと思います。 Excelで作成したファイルの拡張子はXLS又はXLSXで、現在（2008年1月）のWindows用Excelの最新バージョンはMicrosoft Ofice Excel 2007です。 Excelがインストールされていなくても、「ExcelViewer」を使用することでファイルを閲覧できます。 私はコンピュータを使った作業をほとんどExcelに頼っています。Excelは本当にすごいアプリケーションだとつくづく感じます。私がこのサイトで解説するExcelの使用例の一部をここに示します。 表を作る グラフを作る サイトのバナーやロゴを作る 複雑な計算 簡単なプログラムの作成 これらはほんの一部です。Excelを使いこなせるようになれば、あなたが思ってもみなかった意外な使い道も見えてくるでしょう。 本サイトではこれらのExcelの活用方法を初心者にも分かりやすく説明することを心がけています。掲示板Bで本サイトの内容に関する意見・質問等を受け付けているので何か質問があった場合はどうぞ気軽に書き込んでください。 メールでの質問も可能です。（mizu-s[a]kss.biglobe.ne.jp） 各バージョンのExcel 元々、ExcelはMac用のアプリケーションだったようです。現在では様々なバージョンがあり、機能やデザインが微妙に異なっています。 Microsoft Office Excel 97 Microsoft Office Excel 2000 Microsoft Office Excel 2002 Microsoft Office Excel 2003 Microsoft Office Excel 2007 また、Macintosh用のExcelでは2008が最新バージョンです。 Microsoft Office Excel 2008 （これが全てではありません。また、2003と2007では機能が大きく異なっています。） このサイトではExcel2003と2007の両方を解説していきます。 Excelを起動してみる Windows XP でExcelのバージョンが2003の場合、Excelを起動するには、「スタート」→「すべてのプログラム」→「Microsoft Office」→「Microsoft Office Excel 2003」の順にポイントし、クリックします。 画像をクリックすると拡大します。 Windows Vista でExcelのバージョンが2007の場合、Excelを起動するには、ウィンドウズのロゴ（スタート）→「すべてのプログラム」→「Microsoft Office」→「Microsoft Office Excel 2007」の順にクリックします。 画像をクリックすると拡大します。 さあ、Excelを起動できたら次は「基本操作」に進みましょう。
https://w.atwiki.jp/yhe_00975/pages/230.html
簡単 Excel Sample - Excelスコアシーへのリンク 「ミニバス_スコアシート.xls」は、このページの一番下です。 簡単関数をつかってみよう 合計を計算させるなら SUM関数 ちょっとかわった、計をとれる(オートフィルタを使って) SUBTOTAL関数 ちょっとかわった、計をとれる（小計） SUMIF関数 下記添付ファイル ： オートフィルタとSUBTotal.xlsを参照 Excelの印刷テク Excelはコケル！ショートカットキーでセーブしろ Excelは、10分編集したら必ず、「Shift + S」でセーブしよう。 セーブを怠ったために、半日分の仕事をふいにするな。 Excel は、忘れた頃に「コケル」 ！！ Shift + S ： 保存 Shift + Z ： 元に戻す Shift + X ： 切り取り Shift + C ： コピー Shift + V ： 貼り付け ちょっと便利なショートカット Ctrl + ； 今日 つまり、2009/1/9と入力できる Ctrl + ： 現在時間 つまり、22：51と入力できる Excelで、分数を入力する方法 セルに「0 2/3」と入力すると 「2/3」と表示される。0 Space 2 / 3 と入力 もう一つの方法は、「セルの書式設定」であらかじめ分数を入力する設定にする。 日にちにあった曜日を表示する セルの書式設定で、表示形式、ユーザ定義の種類定義に 「aaa」と入力すると、日付が曜日で表示されるよ。 例） 2009/1/10なら 土 と表示されるよ。 関数を使ってスケジュール・ガントチャートを作ってみた 下記添付ファイル：月間予定表-IF 条件付書式.xls 参照 添付ファイル
https://w.atwiki.jp/teematsu/pages/35.html
参考になるサイト ファイルダブルクリック時に新しいウィンドウで開く テンプレート シート追加時のテンプレート Excel関数 データ型 文字列 マクロ ユーザ定義関数の作成 基本構文 演算子 比較 文字列結合 論理 Rangeについて Excelのセルで使える標準関数をマクロから利用する 範囲に名前をつける 変化があったときに何かする 16進数文字列に変換 意図的にエラーを発生させる VBA 関数 文字列 参考になるサイト Excel 2003 関数リファレンス Access VBA講座 ファイルダブルクリック時に新しいウィンドウで開く ファイルの種類の設定で、XLSに対し、新しいアクション（「新規ウィンドウで開く」など)を定義する。 アクションを実行するアプリケーションとして、 "(EXCEL.EXEがあるフォルダ)\EXCEL.EXE" "%1" を指定する。 http //www.trickpalace.net/windows/tips/excel.open.window.htm テンプレート シート追加時のテンプレート シート数1のExcelファイルをテンプレート(*.xlt)として以下のフォルダに保存。 C \ os \Profiles\ User_name \Application Data\Microsoft\Templates Excel関数 データ型 ISNUMBER ISERROR (#VALUE!などのエラーの場合はTRUE) 文字列 SEARCH, FIND (文字列の出現位置を検索。見つからない場合は#VALUE!) マクロ ユーザ定義関数の作成 [ツール]-[マクロ]-[Visual Basic Editor] エディタが開く [挿入]-[標準モジュール] 関数定義は Function foo(param1, param2 As Range, param3 As String) foo = 返却値 End Function セルの値は、計算の入力となるセルの値が変われば自動計算されるが、 「入力となるセル」は、セルに記入した式の中に直接登場するセルとなる。 ユーザ定義関数から直接Range("A2")のようにセルを参照すると、 A2が変化しても自動計算はされない。 自動計算されるようにするには、ユーザ定義関数の引数として、セルの参照 (Range)を受け取るようにする。 Excel のユーザー定義関数の制限について 基本構文 Dim 変数名 As 型 変数名 = 式 Set 変数名 = 式 (オブジェクトを代入する場合) コメント If 式 Then End If For i=0 to 10 Next For Each 変数名 in なんとか Next Exit For (Cのbreak) Exit Function (Cのreturn) 演算子 比較 = 文字列結合 + 結合 オペランドが数値に解釈できる場合は数値演算となるっぽい 結合 論理 and or Rangeについて どれもRangeが取得できる Range("A1") Range("sheet!A1 B4") Cells(y,x) range.Rows http //www.ne.jp/asahi/hishidama/home/tech/excel/range.html Excelのセルで使える標準関数をマクロから利用する WorksheetFunction.関数名(引数,引数,...) 範囲に名前をつける 範囲を選択して名前ボックス(画面左上)に名前を入れる。 名前ボックスの下矢印で、定義済み名前一覧を参照できる。 範囲を変更する、削除するには、[挿入]-[名前]-[定義] A2 B4のような記述の変わりに、名前を使用できる。 =SUM(hogehoge) 変化があったときに何かする 条件付き書式で4つ以上の条件を指定－Worksheet_Changeイベントプロシージャ http //www.relief.jp/itnote/archives/002293.php 16進数文字列に変換 Function tohex(val) tohex = Hex(val) End Function 意図的にエラーを発生させる Err.raise (詳細はヘルプ参照) Err.Raise Number =513, Description ="サブタイトルの列が見つかりません。" VBA 関数 文字列 Format数値、日付、文字列の書式変換 Replace文字列置き換え 名前 コメント
https://w.atwiki.jp/oocc/pages/14.html
特定の条件を満たすセルの値の合計を求める フォーマット： SUMIF(範囲;条件) 例 =SUMIF(G6 G1111;" 100")
https://w.atwiki.jp/stu_pg/pages/12.html
Excelのバージョン取得 Excelでバージョン情報といえば「 Val( Application.Version ) 」という方法で、 Excel97x：８ Excel2000x：９ Excel2002x：１０ Excel2003x：１１ という数値を取得できます。 OS、エクセルのバージョン、ユーザー名を取得する Sub MyVersion() MsgBox "Excel.Version " Chr(13) _ "Excel" Application.Version エクセルのバージョン MsgBox "OS.Version " Chr(13) _ Application.OperatingSystem OSのバージョン MsgBox "Excelユーザー名 " Chr(13) _ Application.UserName ユーザーネーム End Sub ファイル形式を調べる Sub Sample() Select Case ThisWorkbook.FileFormat Case XlFileFormat.xlExcel5 MsgBox "このファイルの形式は" _ "Excel95で作られたファイルです" Case XlFileFormat.xlExcel7 MsgBox "このファイルの形式は" _ "Excel97で作られたファイルです" Case XlFileFormat.xlWorkbookNormal MsgBox "このファイルの形式は" _ "Excel2000で作られたファイルです" Case Else MsgBox "このファイルの形式は" _ "Excel95/97/2000以外のファイルです" End Select End Sub 選択範囲の漢数字を漢字に変換するマクロ Sub ChangeKanjiToSuji() Const KANJI = "〇一二三四五六七八九" Dim a, k, i Dim strValu As String For Each a In Selection a.Value = Application.WorksheetFunction.Asc(a.Value) strValu = a.Value Dim j As Long For i = 1 To Len(strValu) j = InStr(1, KANJI, Mid$(strValu, i, 1), 0) If j 0 Then Mid(strValu, i, 1) = CStr(j - 1) Next a.Value = Replace(strValu, "･", ".") Next End Sub
https://w.atwiki.jp/devulman/pages/58.html
Visitor No. - - - 関連語句：excel chart illust illustration draw エクセル グラフ イラスト 描く Excelで遊んでみる Excelグラフで絵を描いてみようって訳で、早速Web検索しました。「エクセルのグラフをイラストで表す」ばっかり出てくる。そうじゃなくて、「『をで』が違うんだ」って思いながら、次々ページを探すが発見できない。「エクセルのグラフでイラストを表す」んだってば！ あきらめて自分でソフトを作ってみる。中途半端なソフトだけれど、マウスクリックで座標を取るだけ、x座標はもちろん10飛びとか決まったものでないとだめだけど......csv fileで保存する方法。 I wanted to draw "a picture with MS-Excel chart", and at 1st searched webs. But I found only many "MS-Excel chart with a picture". No...not!!. The words of both-sides of "with" are reverse! so, I stopped searching, I tried to make software with myself. This software is simple, making plot(x,y) data with mouse click, many repeating...and making csv file for MS-Excel. Down Load(With English Manual,日本語取説付、ソフトの日本語化も可能) programは、一時間ほどでできたが、実際に作ってみるととても大変、一個目、失敗。 The software had built for about an hour, but too difficult for me to en-data. 1st csv file was failed.... Snail (でんでんむし)Excel FilePDF File x方向で逆戻りがないようにしないと面倒だということがわかった。線の本数を増やせば、それも不可能ではないと思うが.....そこで、もっと簡単な絵にしてみた。I notified chart lines can t turn back on holizon, but many lines will solve it. so, I tested simple pix. Fish (魚)Excel FilePDF File まぁこんなところでしょうか.....That s about-all right. Nautilus (オウムガイ)Excel FilePDF File 渦巻きが好きです。I like spiral. Cockroach (ゴキブリ)Excel FilePDF File でんでんむしも要らない部分を空欄にして表示しなければ簡単です。が、グラフですから横は通しでやってみたい。そんなわけで４つ目の作品です。if only needed data will be input, it s easy to draw a snail with excel chart.but I try every chart line to be through left to right. Butterfly(蝶)Excel DLPDF File 都合、下の羽が大きい目です。 Snail (でんでんむし)Excel FilePDF File 再度でんでんむしに挑戦 GirlExcel FilePDF File At 1st I found this pix and I thought it was made with Excel.But it wasn t with Excel. It s fake.Because a line is turned to back side, therefore it s not Excel chart.So, I re-maked this pix.最初に発見した絵の作り直し版。横方向で逆走があり、表計算ソフトを使ってない偽物だった。 Leaf (葉っぱ)Excel FilePDF File Above Excel files are inputted data through left to right.ここまでのファイルは左右両端まで通しでデータ入力しています。 Flower (花)Excel FilePDF File Below Excel files are inputted the data needed to draw the pictures.以下は描画に必要な部分のデータのみ入力しています。 Spok (スポック)Excel FilePDF File if sample bmp pix is small, it s too hard to make excel data.元の絵が小さいと困難です。 Guebara (ゲバラ)Excel FilePDF File Using a little bigger bmp file, a little easier.大きい目の元絵を使うとその分やり易い。 Coelacanth (ｼｰﾗｶﾝｽ)Excel FilePDF File MazingerZExcel FilePDF File Lenin (レーニン)Excel FilePDF File 東野英次郎といえばそんな気のする顔Lenin looks like Eijiro Tono, a japanese actor as funeral server in Yojinbo. Guebara (ゲバラ)Excel FilePDF File Using a big sized bmp file. Star Trek TOSCp. KirkMr. SpokDr. McCoyExcel FilePDF File Startrek TOS MS-Excel Pix file 2009/9/22.To Make up these 3 faces costs me about 2 month.If you can t change Excel sheet, you save the startrek excel file to your HDD and re-try. Sheetが変らない時はHDDへの保存後に再試行。 Butterfly (蝶)Excel FilePDF File I programed symmetry function.and the 1st testing of horizontal symmetry function.対称機能をつけて横対称の試行。 Dragonfly (蜻蛉)Excel FilePDF File The 2nd of horizontal symmetry function.横対称の2つ目の試行。 Moth(蛾)Excel FilePDF File The Test of vertical symmetry function.縦対称の試行。 初音ミクExcel FilePDF File Miku Hatsune - 3D-chart is useful for animation. Startrek TOS MS-Excel Pix file 2009/9/22 Kirk+Spok+McCoy Excel File Down Load 出来上がったソフトをUpLoadする前は1日5人程度の訪問、UpLoad後は1日15-20人の訪問、ま、そんなもんでしょう。 Page Top Top Page
https://w.atwiki.jp/ac1226/pages/17.html
数値と文字の混在 「データ」→「区切り位置」を選択する 「列のデータ形式」で「文字列」を選択して「完了」 最終行を探し、飛び飛びの列を選択 Sub test() Dim r As Range Dim MaxRow As Long Dim ar As Variant Dim buf As Variant Dim i As Integer Set r = ActiveSheet.UsedRange ar = Evaluate("(" r.Address " """")*(ROW(" r.Address "))") For i = r.Rows.Count To 1 Step -1 buf = WorksheetFunction.Index(ar, i, 0) MaxRow = WorksheetFunction.Max(buf) If MaxRow 0 Then Exit For End If Next MsgBox MaxRow With ActiveSheet Union(.Range("A1 D" i), .Range("G1 G" i)).Select End With End Sub Excel設定 Dim xlApp As New Excel.Application Dim xlWb As New Excel.Workbook MyPath = CurrentProject.Path "\Test.xlsx" Set xlApp = CreateObject("excel.application") Set xlWb = xlApp.Workbooks.Open(FileName =MyPath) xlApp.DisplayAlerts = False xlWb.ActiveSheet.Cells.WrapText = False 折り返し無効 xlWb.ActiveSheet.Cells.EntireColumn.AutoFit 例全体のセル幅調整 xlWb.Worksheets("AAA").Columns(1).Delete 2列目削除 xlWb.Worksheets("AAA").Cells.WrapText = False 折り返し無効 xlWb.Worksheets("AAA").Cells.EntireColumn.AutoFit 例全体のセル幅調整 xlWb.Worksheets("AAA").Cells.HorizontalAlignment = xlCenter 文字の配置 xlWb.Worksheets("AAA").Rows(1).Interior.ColorIndex = 11 背景色 xlWb.Worksheets("出力").Rows(1).Interior.Color = RGB(23, 55, 93) xlWb.Worksheets("AAA").Rows(1).Font.ColorIndex = 2 文字色 A列同一値の結合 With xlWb.ActiveSheet i = 2 2行目から j = i + 1 Do While .Cells(j, 1).Value "" If .Cells(i, 1).Value = .Cells(j, 1).Value Then .Range(.Cells(i, 1), .Cells(j, 1)).MergeCells = True j = j + 1 Else i = j j = j + 1 End If Loop End With xlWb.ActiveSheet.SaveAs MyPath, , , , , False バックアップ.xlkを作成しない xlWb.Close SaveChanges =True xlApp.Quit xlApp.DisplayAlerts = True Set xlWb = Nothing Set xlApp = Nothing